		CHARACTER(LEN=80)  :: for001
		CHARACTER(LEN=1)  :: modes, high
		CHARACTER(LEN=69)  :: txts  
		INTEGER nq,nl,nlm,nlmq,lat,nv,nlh0,nlmh0
		
		call getarg(1,for001)
		OPEN(1,FILE=for001,STATUS='OLD',FORM='UNFORMATTED')

		READ(1) txts,modes,high
		READ(1) nq,nl,nlm,nlmq,nv,nlh0,nlmh0,lat
		close(1)
		write(*,'(i2)')lat

		end
